home *** CD-ROM | disk | FTP | other *** search
-
- ;
- ; Copyright (c) 1988 Commodore-Amiga, Inc.
- ;
- ; Executables based on this information may be used in software
- ; for Commodore Amiga computers. All other rights reserved.
- ;
- ; This information is provided "as is"; no warranties are made.
- ; All use is at your own risk, and no liability or responsibility is assumed.
- ;
-
- CODE
-
- INCLUDE "exec/types.i"
- INCLUDE "printf.mac"
-
- DEBUGENABLE
-
- ; a simple little program to test if the printf macro works OK
- Start printf <'Starting: d0=%ld a0=$%lx\n'>,d0,a0
- cmpi.w #1,d0
- bne.s PrintArgs
- printf <'No arguments given\n'>
- bra.s AllDone
-
- PrintArgs printf <'Arg string = '>
- subq.w #1,d0
- ArgLoop move.b (a0)+,d1 get next character
- printf <'%c'>,d1 print it out
- dbra d0,ArgLoop and loop for next
-
- AllDone rts
-
- END
-
-